Voorbeeld van de functie DateDiff

Dit voorbeeld maakt gebruik van de functie DateDiff om het aantal dagen tussen de opgegeven datum en vandaag weer te geven.

Dim TheDate As Date    ' Declare variables.
Dim Msg
TheDate = InputBox("Voer een datum in")
Msg = "Dagen vanaf vandaag: " & DateDiff("d", Now, TheDate)
MsgBox Msg